home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.507 / MUSICD13.MF < prev    next >
Text File  |  1993-09-01  |  1KB  |  49 lines
  1. %%%
  2. %  this is musicd13.mf
  3. %%%
  4.  
  5. % input modes
  6. % input local
  7.  
  8. mode_setup;
  9.  
  10. %blacker:=0; %uncomment to override
  11.  
  12. font_size 13pt#;
  13.  
  14. nhh#:=1/4designsize; %noteheadheight
  15. nhw#:=1.2nhh#;       %noteheadwidth
  16.  
  17. thin#:=1/50designsize;
  18. med#:=1/33designsize;
  19. thick#:=1/16designsize;
  20.  
  21. thinwidth := 0.1pt;
  22. s := 0.80pt;
  23. S := 1/16designsize;
  24.  
  25. beamht#:=0.48nhh#; %beamthickness
  26.  
  27. % use pixelmacros from plain
  28. define_pixels(nhh,nhw,beamht);
  29. define_blacker_pixels(thin,med,thick);
  30.  
  31. % pair constants
  32. pair ne,se,sw,nw; %northeast,southeast,southwest,northwest
  33. ne = up+right; se = down+right; sw = down+left; nw = up+left;
  34.  
  35. % displaying:=2; %uncomment to see characters immediatly on screen
  36.  
  37. def clear =
  38.     numeric x[],y[],x[]l,y[]l,x[]r,y[]r,dx[],dy[];
  39.     pair    sh[];
  40. enddef;
  41.  
  42. % this macro might be deleted
  43. def penstrike text t =
  44.     forsuffixes e = l,r: path_.e:=t; endfor
  45.     if cycle path_.l: cyclestroke_
  46.     else: filldraw path_.l -- reverse path_.r -- cycle
  47.     fi
  48. enddef;
  49.